{ TSM Efficiency Ratio Average : Kaufman's Efficiency Ratio Aveage
  Copyright 1990-1999,2011,P J Kaufman.  All rights reserved. }
  
	input: period(20);
	vars:	change(0), noise(0), diff(0), ratio(0), signal(0), sumratio(0), avgratio(0);

	ratio = 0;
	diff = AbsValue(close - close[1]);
	if currentbar > period then begin
	   change = close - close[period];
   	signal = AbsValue(change);
      noise = summation(diff,period);
      ratio = 0;
      if noise <> 0 then ratio = signal/noise;
      sumratio = sumratio + ratio;
      end;
      	
   if lastbaronchart then begin
      avgratio = sumratio/(currentbar - period);
  		print(file("c:\TSM5\AvgEffRatio.csv"),avgratio:3:4);
  		end;